


COMMODORE 


AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 


mei, augustus en november als bijla- 


ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
van Commodore Dossier. 
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Met onder meer een toetsenbord van 
Wersi en een geheugenuitbreiding © 
voor de CBM-64 van Radarsoft. 


TIPS & TRUCS 
pagina 4 : 
Het verschil tussen ‘end’ en ‘stop’, 
mysterieuze ‘out of memory’ en veel 
andere. 


PROGRAMMAS 
pagina 5 _. 
Grapjes met tekststrings, astrologie 
_ met ’Zodiac’ en veel MUZIEK. 


LISTINGS 
VAN LEZERS 
pagina 11 
Fraai programma ‘Screenprint’, inge- 
zonden door Johan Eerenberg. 


BASIC 
pagina 12 
Roelf Sluman behandelt dit keer pro- 
grammeren met behulp van data- 
regels. _ 


CD-MARKT 
pagina 13 
Gratis kleine advertenties van en 
voor lezers van Commodore Dossier. 


SERVICE 
pagina 14 
De belangrijkste gegevens van de 
verschillende gebruikersgroepen. 


























Wersi Electronic Nederland BV 
(Postbus 106, 3870 CC Hoevela- 


ken) brengt een toetsenbord op 
de markt dat van de Commodo- 


re 64 cen synthesizer maakt. 


Het systeem bestaan uit een ste- 
vig — in Commodore-stijl — 
ultgevoerd toetsenbord met 49 
toetsen, een interface met ver- 
bindingskabel, standaard soft- 
ware (op schijf) en een uitge- 
breide handleiding. Het stan- 
daard bijgeleverde programma 


op schijf levert de mogelijkheid 
om de melodievolgorde vrij sa- 
men te stellen, heeft een opslag- 
capaciteit van twee keer tien 
sounds, regelbaar tempo en 
toonhoogte, een playback func- 
tie en laat drie klankkleuren te- 
gelijkertijd toe. Inclusief dit 
programma kost het toetsenbord 
F585,-. Voor FS0,- is soundpack 
3 aan te schaffen, een schijf die 
onder meer de mogelijkheid van 
vrije toonkeuze geeft. Een rit- 




















meprogramma op schijf kost 
tenslotte F245,-. 

De programma’s geven hun in- 
structies op het beeldscherm van 
tv of monitor, maar voor het 
fraaiste effect moet het geluid 
natuurlijk eigenlijk naar de 
stereo-instrallatie worden afge- 
takt. 

In een van onze volgende num- 
mers Zullen we het toetsenbord 
van Wersi veel uitvoerioger aan 
de tand voelen. 


GEHEUGEN-UITBREIDING VAN RADARSOFT 


De meeste bezitters van een 
CBM-64 hebben leren leven en 
woekeren met de beperkte (38K) 
geheugenruimte van hun machi- 


/ ne. Toch is er volgens Radar- 


soft in deze kringen een grote 
behoefte aan geheugenuitbrei- 
ding. De daad bij het woord 
voegend brengt het Roosendaal- 
se bedrijf dan ook een insteek- 


module op de markt die 12K 
aan het werkgeheugen van de 
CBM-64 toevoegt. Behalve een 
uitbreiding van het geheugen, 
krijgt de gebruiker dan de be- 
schikking over een aantal extra 
opdrachten die het leven kunnen 
veraangenamen, maar aan de 
andere kant levert de module 
ook een aantal beperkingen op. 


De module bevat niet echt een 
geheugen-uitbreiding, maar 
maakt gebruik van zogenaamde 
bank-switching in het bestaande 
geheugen van de Commodore. 
Dat betekent praktisch dat u 
onmiddelijk in de knoei komt 
als u gaat werken met disk- 
snellaadprogramma’s en com- 
merciéle machinetaal- > 








Bm programma’s. Ook Simons Ba- 


sic kan niet tegelijkertijd werken 
en voor de grafische tekens van 
Commodore moet de module 
ook uitgeschakeld worden. 

De manier waarop de module 
uitgeschakeld wordt - met de K 
van Kill — is illustratief voor de 
eenvoud van de extra opdrach- 
ten die programmeurs ter be- 
schikking krijgen. Voor Basic- 
programmeurs is de module yol- 
gens de makers bij uitstek ge- 
schikt. Die krijgen bijvoorbeeld 
de beschikking over de uiiste- 
kende Renumber-faciliteit die 
ook de Gosubs en Goto’s niet 


y 


(eeurad@s es 165 


vergeet en die kunnen ook hun 
voordeel doen met het Radar- 
schijfbesturingssysteem met al 
zijn foefjes. 

Met dat besturingssysteem kan 
bijvoorbeeld de directory of in- 
houdsopgave van de schiff wor- 
den opgeroepen zonder vernieti- 
ging van het programma in het 
geheugen van de machine. Van- 
uit de directory kunnen met 
heel korte opdrachten program- 
ma’s worden geladen. Zo is 
Shift G aan het begin van een 


regel in de directory al voldoen- 
de om een programma te laden 
en daarna automatisch te 
Starten. 

Gebruikers van de dataseite 
krijgen de beschikking over een 
zogenaamde TURBO, waarmee 
het laden en wegschrijyen van 
programma’s tien keer sneller 
verloopt. 

Als de insteekmodule is aange- 
bracht, meldt hij zich bij het 
aanzetten van de computer met 
een titelblad waarop alle moge- 
liikheden vermeld worden. 
Nauwkeurig bestuderen van die 
titelkaart is wel het minste wat 
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de koper-in-spe moet doen 
voordat hij tot een aanschaf 
van F149,- overgaat. 

Vendex (020-460706) verkoopt 
de insteekmodule. 

Dat betekent dat de omzet in 
Nederland in elk geval gegaran- 
deerd lijkt. Maar ook het bui- 
tenland toont belangstelling. 
Niet alleen verschillende Euro- 
pese landen gaan de module im- 
porteren, maar zelfs de Verenig- 
de Staten lijken bijzonder gein- 
teresseerd. 


CBM-64 OVERHEERST FINALE 
MICRO MASTERS 


In de Rotterdamse Ahoy traden 
vorige maand vijfenzeventig 
jongeren tussen de vijftien en 
achitien aan voor de finale van 
Micro Masters Holland. De ma- 
kers van de negen beste compu- 
terprogramma’s (of - toepassin- 
gen) stond een bijzonder aan- 
trekkelijke prijs te wachten: een 
week Turijn. In de maand juli 
gullen in totaal honderdtwintig 
jJongeren uit alle landen van de 
E.G. in Turijn bij etkaar Komen 
‘om kennis te maken met de 
nieuwe technologieén en om 


mee te doen aan diverse compu- 
terworkshops. 

Dat een groot aantal van de 
winnende programma’s op een 
Commodore 64 gemaakt zou 
zijn, stond al vdér het jurybe- 
raad vast. Maar liefst dertig yan 
de vijfenzeventig finalisten had- 
den het lastige Commodore Ba- 
sic getrotseerd om hun idee uit 
te werken. Ter vergelijking: 
compuler nummer twee, de Sin- 
clair Spectrum, was vertegen- 
woordigd door twaalf appara- 
ten. De vindingrijkheid van de 


bij de beoordeling hoog in het 
yaandel. Een programma als 
Kinder Komp van Erwin de 
Vries uit Veendam, dai leerlin- 
gen van de basisschool de eerste 
beginselen van het programme- 
ren probeert bij te brengen, was 
onder deze invalshoek natuurlijk 
een ijzersterke inzending. 
Waarschijnlijk krijgt Micro 
Masters Holland een vervolg. 
Gezien de kwaliteit van de in- 
zendingen deze eerste keer, kun- 
nen de toekomstige deelnemers 
maar beter meteen met pro- 
grammeren beginnen. 


deelnemers was bijzonder hoo. 
Een van de winnaars, Stephen 
Heerkens uit Veghel, had van 
*Fishertechniek’ een minifabriek 
gemaakt, Zijn Commodore 
bestuurt een thermische draad 
die letters en cijfers uit een stuk 
piepschuim snidt. Het was op- 
vallend dat de jury bij het toe- 
kennen van haar hoofdprijzen 
de vele spelprogramma’s pas- 
seerde, 

Alleen een grafisch avontu- 
renspel van Jos de Kerk uit 
Noordwijkerhout kon de toets 
der kritiek doorstaan. Voor het 
overige stond het gebruikersnut 


PCM-SHOW 1985 


Nog even een geheugensteuntje voor de PCM-show die van 11 tot en 
met 13 oktober aanstaande in de Margriethal van de Jaarbeurs in 
Utrecht zal worden gehouden. Ook voor Commodore-fans zal deze 
beurs — die door ons zusterblad Personal Computer Magazine wordt 
georganiseerd — bijzonder interessant kunnen worden. De beurs vindt 
plaats op een strategisch tijdstip — vlak voor de feestdagen — zodat 
mag worden aangenomen dat de diverse fabrikanten hun primeurs zul- 
len showen. Zo zou de beurs wel eens de eerste gelegenheid kunnen zijn 
om daadwerkelijk kennis te maken met de C-128. 

Lezers van Commodore Dossier krijgen overigens voor de helft van de 
normale prijs toegang tot de beurs. De kortingsbon zal in Commodore 
Dossier nummer 3 worden bijgevoegd. 


HEAD ALIGNMENT KIT 





Geen mens kan het uitspreken, 
maar bezitters van de zoge- 
naamde datasette van Commo- 
dore kunnen er hun voordeel 
mee doen. De ’kit’ die Aacko- 
soft (071 — 412121) voor 
F39,50 op de markt brengt, 
maakt het correct afstellen van 
de opname-kop van zo’n casset- 
terecorder vrij eenvoudig. De 
doos bevat twee cassettes en een 


piepklein schroevendraaiertje. 
Via een duidelijke gebruiksaan- 
wijzing wordt verklaard hoe de 
kop aan de hand van een wij- 
zertje en een teller die in beeld 
verschijnen, moet worden af- 
gesteld. De noodzakelijk waar- 
schuwingen ontbreken ook niet. 
Heel handig, ondanks die on- 
mogelijke naam. 























TIPS EN TRUCS 


Maandelijkse rubriek met korte programma’s, routi- 
hes en utilities. ees viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
a lezers worden, indien geplaatst, beloond met 50 
guiden. 


NOTA BENE 


Alle programma’s op deze en de volgende pagina’s zijn voor- 
zien van onze checksum. Die is te herkennen aan het voor- 
voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 
intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het ckecksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u op pagina 37 van Commodore Dossier. 


GEHEUGEN- 
LOKATIE G53 
Geheugenplaats 653 wordt door 
de computer gebruikt om aan te 
geven of de SHIFT-, 
CONTROL- of 
COMMODORE-toets is inge- 
drukt. In deze geheugenplaats 
kunnen zich de volgende waar- 
den bevinden: 

1 Shift-toets ingedrukt 

2 Commodore-toets ingedrukt 

3 Shift- en Commodore-toets in- 
gedrukt 


4 Control-toets ingedrukt 

5 Shift- en control-toets in- 
gedrukt 

6 Commodore- en control-toets 
ingedrukt 

7 Shift-, Commodore- en 
control-toets ingedrukt. 


Op de volgende manier wordt 
zo gewacht totdat de Shift-toets 
wordt ingedrukt: 

10 print’’druk op de shift-toets’’ 
20 wait 653,1 

30 print’ DANK U WEL” 


LADEN VAN CASSETTE 


We hebben ontdekt dat niet alle 
lezers op de hoogte zijn van de 
volgende truc. Als een program- 
ma van cassette moet worden 
geladen, geeft de Commodore 
64, een tijdje nadat de play- 
toets is ingedrukt, de melding 
"FOUND programmanaam’. Na 
ongeveer 10 seconden begint de 
computer dan te laden. Deze 


wachttijd is te voorkomen door 
direct na de FOUND-melding 
de Commodore-, control- of 
spatie-toets in te drukken. Voor 
de Vic 20 is het bovenstaande 
niet van toepassing; deze com- 
puter begint meteen na FOUND 
met het laden van het pro- 
gramma. 


AUTOMATISCHE TABULATIE 


Het gebruik van een komma na 
een print-opdracht zorgt er voor 
dat de volgende print- 

instructie vanaf de volgende ta- 
bulatiestop begint. Op de Com- 
modore 64 bevinden zich vier 


tabulatiestops, op de Vic 20 zijn 
dat er twee. Het volgende korte 
Basic-programma maakt gebruik 
van tabulaties: 

10 for x= ltol00 

20 print x,:next 


HET VERSCHIL TUSSEN END’ 


EN "’STOP’ 
Basic-programmeurs weten dat 
er twee manieren zijn om een 
programma te stoppen, met de 
opdrachten END en STOP. Wat 
is nu het verschil tussen deze 
twee opdrachten. 

Het END-statement wordt voor- 


namelijk gebruikt als ’officiéle’ 
beeindigingsopdracht. In een 
goed geschreven programma 
heeft het weglaten van de END- 
instructie geen gevolgen. 
Commodore-computers genere- 
ren namelijk, bij het bereiken 
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van het einde van een program- 


‘ma, uit zichzelf een END- 


opdracht. Toch plaatsen gerou- 
tineerde programmeurs meestal 
een END-regel in hun program- 
ma. Uit gewoonte, maar ook 
om een programma mooi 
gestructureerd af te ronden. 

De STOP-opdracht heeft een 
heel andere functie. Als de com- 
puter dit commando tegenkomt, 


antwoordt hij met een BREAK 
IN regelnummer’. STOP- 
opdrachten worden gebruikt om 
fouten in Basic-programma’s op 
te sporen. Door op bepaalde 
plaatsen een STOP te zetten, 
wordt gekeken of de inhoud 
van variabelen nog steeds juist 


' is. De opdracht helpt dus mee 


aan het ’ontluizen’ van pro- 
gramma’s. 


SAVEN MET MACHINE TAAL 


MONITOR 

De meeste machinetaal- 
monitoren gebruiken dezelfde 
SAVE-syntax. Om een machine- 
taalprogramma vanuit een mo- 
nitor op te slaan, gaat u als 
volet te werk: 

(We nemen aan dat het machi- 
netaalprogramma ’test’ heet, dat 
het begint op $4000 en eindigt 
op $4040 en dat het naar casset- 
te moet worden weggeschreven.) 
S’’ TEST’’,01,4000,4041 

De drie getallen achter de pro- 
grammanaam hebben de volgen- 
de betekenis: 

Ol is het device-nummer. Voor 


cassette is dit 01, voor disk is 
het 08 (of 09 als u over een 
tweede schijfeenheid beschikt). 
4000 is de start van het machi- 
netaalprogramma. 

4041 is het einde van het machi- 
netaalprogramma plus |. Het is 
zeer belangrijk om één byte 
meer op te geven. Er wordt na- 
melijk gesaved TOT de laatste 
byte. Dit is een van de redenen 
waarom zoveel machinetaalpro- 
gramma’s vanuit een monitor 
niet werken als ze eerst wegge- 
schreven zijn en daarna op- 
nieuw worden ingeladen. 


BEGINADRES VAN 


PROGRAMMAS 
De twee volgende programma’s 
— respectievelijk voor cassette 
en schijf — zoeken het begina- 
dres van een programma voor u 
uit. Het beginadres is de plaats 
van waar een programma in het 
geheugen wordt geladen. 


Voor cassette: 

10 open | 

30 print ’’programmanaam’’ 
40 forx = 833 to 848: 
printchr$(peek(x));:next 

50 print:print’’ beginadres:”’ 
speek(829) + 256*peek(830) 
60 print:print’’eindadres:”’ 
speek (831) + 256*peek(832) 
70 end 


Voor schijf: 
10input’’programmanaam:”’;pr$ 
20 open3,8,3,pr$ 

30 gosub100 

40 if er then stop:rem error 

50 get#3,b1$:get#3,b2$:close3 
60 bil =asc(b1$ + chr$(0)):b2 = 
asc(b2$ + chr$(0)) 

70 print’’ beginadres:’’;b1 + 256 
80 end 

100 open1,8,15:input#1,er,er$, 
el,e2:close 1:if er then print 
er,er$ 

110 return 


WACHTEN OP EEN TOETS 


Het volgende programma de- 
monstreert een handige manier 
om te wachten tot er een toets 
wordt ingedrukt, bijvoorbeeld 
na het op het scherm zetten van 
een openingsbeeld. 

10 print:print:print’’druk op een 
toets’’ 

20 poke198,0 

30 geta$:ifa$ =’’’’then30 

40 print:print’’nu volgt de rest 
van het programma’’ 


De ’POKE 198,0’ instructie in 





regel 20 zorgt er voor dat de 
toetsenbuffer leeg is. Elke 
zestigste seconde kijken de 
Commodore 64 en de Vic 20 of 
er een toets wordt ingedrukt. 
De Ascii waarde van deze toets 
wordt vervolgens in een aparte 
(toetsen-)buffer opgeborgen. In 
geheugenplaats 198 wordt bijge- 
houden hoeveel toetsen er zijn 
ingedrukt. Vandaar de opdracht 
POKE 198,0; de computer weet 
aan de hand daarvan dat er nog 
geen enkele toets is ingedrukt. 








LIST-BEVEILIGING 


Veel Basicprogrammeurs dro- 
men ervan om hun listings te 
beveiligen, zodat ze niet beke- 
ken kunnen worden. Er bestaat 
geen Basic-opdracht om dit te 
berciken. Een oplossing voor 
het probleem is er echter wel. 
Hiervoor maken we gebruik van 
het REM-statement. Als eerste 
regel van een programma toetst 


AANHALINGS- 


uin: 

10 REM <shift L> 

Dat betekent dat una REM de 
shift-toets ingedrukt houdt ter- 
wijl u de letter L intoetst. 

Als u nu de opdracht LIST 
geeft, antwoordt de computer 
met (SYNTAX ERROR. 

Het listen van een programma 
wordt dus een stukje moeilijker. 


TEKENS WEGLATEN 


In sommige gevallen is het toe- 
gestaan om de laatste van twee 
aanhalingstekens weg te laten. 


Kijkt u maar eens naar het vol- 
gende voorbeeld: 
10 print’’dit is een test’’ 





Maandelijkse rubriek met listings van programma’s die het waard zijn in uw | 
programmaregels zijn voorzien van een controle-getal, voorafgegaan door (shi 


20 print’’dit is een test 
Ondanks het ontbreken van de 
aanhalingstekens in regel 20, 
wordt deze regel normaal uitge- 
voerd. ALLEEN ALS HET OM 
HET LAATSTE TEKEN VAN 
EEN BASIC-REGEL GAAT, is 
het dus toegestaan om het twee- 


KORT 

@ Wist u dat de 0 (nul) op 
twee verschillende manieren kan 
worden ingevoerd? 

1G A] CB. 

doet precies hetzelfde als: 

10 A=0:B=0 





de aanhalingsteken weg te laten. 
De volgende regel is dus niet 
toegestaan: 


10 print’’dit is een test:gotol0 
De computer zou dan ‘dit is een 
test:gotol0’ op het scherm 
schrijven. 


@ Met POKE 649,0 kunt u, zo- 
wel op de Vic als op de 
CBM.-64 het toetsenbord uit- 
schakelen. Na POKE 649,10 
kunt u het toetsenbord weer ge- 
bruiken. 
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pre ramma-bestand te worden opgenomen. Alle 
vspati), Die woorden, de haakjes en de schuine 


Streep moet u niet intikken, maar u dient icoeere de shift-toets en de spatiebalk in te drukken. Het controle-getal zelf 
bestaat uit twee letters of twee cijfers of uit een letter en een cijfer. Het programma dat het controle-getal voor de computer 
begrijpelijk maakt, vindt u in Commodore Dossier. 


GRAPJES MET TEKSTSTRINGS 


Met behulp van onderstaande 
korte programma’s kunt u in 
hoofdprogramma’s grapjes met 
tekstregels uithalen, zodat de 
aandacht van de gebruiker vast- 
gehouden blijft. Bovendien kunt 


LISTING 1 


100 
110 
130 


bij het starten of beeindigen van 
een programma op een originele 
manier een boodschap op het 
scherm zetten. 

De listings hieronder maken in- 
tensief gebruik van zogenaamde 


besturingscodes. In onze listings 
bijvoorbeeld CHR$(17) en 
CHRS$(9) voor respectievelijk 
CURSOR DOWN en CURSOR 
RIGHT. Deze besturingscodes 
zorgen er voor dat de tekst naar 


printchr$¢147):poke53281,0:poke53280,0<shift>/<spatie>08 
af="“wij presenteren trots..."<shift>/<spatie>rda 


een bepaalde plaats op het 
scherm wordt gebracht. Uiter- 
aard kunt u de boodschappen in 
deze listings vervangen door uw 
eigen tekst. 





bS=chr8(19)<shift>/<spatie>d98 

for i=1 to 12:bS=b$ichr$(17):next<shift>/<spatie>3a 
150 for i=1 to 19:bS=b$+chr$(29):next<shift>/<spatie>26 
160 for x=ltol2:print lefts (bs,33-x)mid$(a$,13-x,2xx): 
next<shift>/<spatiedaf 

180 poke 646,((peek(646)+1)and15)<shift>/<spatiedfc 

190 if peek(646)=0 then poke646,1<shift>/<spatie>59 

200 get gs:if qs="" then goto 160<shift>/<spatie>73 


140 


LISTING 2 


100 
110 
120 
130 
140 


printchrs(147):pokeS53281,0:poke53280,0<shift>/<spatie>08 
aS="wij presenteren trots..."<shift>/<spatiedda 

for i=l to 24:c#=c$tchr$(32):next<shift>/<spatiercc 
bSechr8 C19) <shift>/<spatie>98 

for 1=1 to 12:b%=bSt+chr$(17):next<shift>/<spatie>3a 
150 for i=1 to 19: bS=bstchrs(29):next<shift>?/<spatie>26 
160 for x=ltol2:print left$(b$,33-x midstas, 13-2, 2x): 
next<shift>/<spatie>daf 

170 for x=1 to iZ:print left$C(bs, 33-x)midS(cS,13-x,2*x): 
next<shlft>/<spatieda7 

180 poke 646, (€Cpeek(646)+1 andi5><shift>/<spatie>dfc 

190 if peeKk(646)=0 then pokeé4dé,l<shift>/<spatie>S9 

200 get g$S:if q8="" then goto 160<shift>/<spatie>73 
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LISTING 3 


100 
110 
120 
130 


140 
150 






LISTING 4 


100 
110 
120 
130 
140 
150 
160 
next<shift>/<spatie>35 


for 


print chr$(147)<shift>/<spatie>09 
as=“even geduld alstublieft!“<shift>/<spatie>d4 

for i=1 to 24:c8=c$+chr$(32):next<shift>/<spatie>cc 
bS=chr$(19)<shift?/<spatieo98 
for i=1 to 12:b$=bStchr$(17):next<shifto/<spatie>3a 
i=1 to 22:b$=b$+chr$(29):next<shift>/<spatie>2e 
for x=0 to il:print lefts(bs,32-x)mid$(a$,12-x,2+2xx): 


printchr$(147):poke53281,1:poke53280, l<shift>/<spatie>08 
fori=ilto2d: v$sv$+chr$(17):next<shift>/<spatieddd 
fori=lto35:h$=h$tchrs(29):next<shift>/<spatierco 
aS="einde”"<shift>/<spatie>16 
w=intC36xrnd(O)):y=intC25xrnd(0))<shift?/<spatie>?bs 
printchrs(i9)left$ (vs, yleftsCh$,xdasi<shift>/<spatie>80 


170 for x=0 to il:print lefts (bs,32-x)mids(c8,12-x,2+2xx): 


next<shift>/<spatie>3d 


180 for x=0 to il<shift>/<spatie>4b 
190 print lefts(b$,21)lefts(as,xtl)rights(bs,22-2xx) 
right$Ca$,x+i):next<shift>/<spatie>fl 
200 for x=0 to 11l<shift>/<spatie>37 

210 print left8(bs,21) lefts (c$,xt+lright$ (bs, 22-2xx) 
right$(cS,x+i): next<shift>/<spatie>9d 


220 get gq$:if qs="" 










In hun soort staan Commodore 
computers op eenzame hoogte 
wat betreft hun muzikale kwali- 
teiten. Onderstaande program- 
ma’s bewijzen dat eens te meer. 
Het programma TUNE GENE- 
RATOR oftewel DEUNMA- 
CHINE geeft een kleine maar 
indrukwekkende demonstratie 
van het muzikale vermogen van 
de computer. Het programma 
kiest RANDOM uit een bepaal- 
de hoeveelheid beschikbare ac- 
coorden, De muziek die zo ont- 
staat, kan varieren van zoet en 
lieflijk tot — laten we zeggen — 


TUNE GENERATOR 





MAESTRO, MUZIEK! 


then goto 160<shift>/<spatie>67 


betrekkelijk primitief. Denk aan 
de volumeknop! 

Het swingende programma 
TECHNO-ROCK is een korte, 
meerstemmige fuga met een 
rock-ritme, gelardeerd met wat 
synthesizer-licks. Excuseer het 
jargon. 

Volledigheidshalve hebben we 
voor de muzikale leken onder u 
het begrip ’fuga’ even in het 
woordenboek opgezocht. Het 
blijkt een meerstemmig muzick- 
stuk te zijn waarin het thema, 
door één stem ingezet, door de 
andere stemmen wordt overge- 


nomen. Zoals ’Vader Jacob’ 
dus ongeveer. 

Het deuntje Home on the Ran- 
ge’ is een Amerikaanse ’ever- 
green’, die ook bij ons vrijwel 
iedereen bekend voor zal ko- 
men. Het programmaatie is 
weer heel inzichtelijk opge- 
bouwd. Zo is bijvoorbeeld een- 
voudig te herkennen dat in regel 
20 de geluidschip wordt vrijge- 
maakt en daarna het volume op 
zn hardst (15) in lokatie 54296 
wordt gePOKEd (regel 30). 
Over de twee laatste mu- 
ziekstukjes, Halley’ en ’Lagu- 


10 dimh1(5),11¢5),h2(5),12¢5),nh(5,5),n1(5,5)<shift>/<spatiedad 
20 printchr$(147);"tune generator”<shift>/<spatie>3b 







na’ zullen de meningen verdeeld 
zijn. Menigeen zal zelfs ontken- 
nen dat het hier om muziek 
gaat. De programma’s zijn ge- 
schreven door de Amerikaan 
Joey Latimer, redacteur van 
*Family Computing’. Latimer 
specialiseert zich in wat hijzelf 
noemt "hyperspace sound pain- 
tings’, hetgeen vertaald zou 
kunnen worden met ’futuristi- 
sche herrie’. Dergelijke geluiden 
doen het bijvoorbeeld erg goed 
bij space invader-achtige spel- 
letjes. 


30 s=54272:fori=s to st+24:pokei,O:nexti<shift>/<spatie>88 
40 forx=itoS:readhl(x),11¢x),h2¢«),12¢xz)<shift>/<spatie>72 
50 fory=itoS:readnh(x,y),nl(x,y):nexty,x<shift>/<spatie>f8 
60 pokest+5, 34: pokest6,243:pokes+4,17<shift>/<spatie>7d 

70 pokest12,34:pokesti3,243:pokestii,17<shift>/<spatie?31 
80 pokest19,34:pokes+20, 243:pokest+18,17<shift>/<spatie>25 
90 t=int(rnd(1)*20)+20<shift>/<spatie>85 

100 forg=0tol0:pokest24,q:nextq<shift?/<spatie>55 

110 forx=ito t<shift>/<spatierdc4 

120 r=int(rnd(1)*5)+i<shift>/<spatie>ad 

130 ifx=1 then r=l<(shift>/<spatieda4d 

140 ifx=t then r=4<shift>/<spatie>ca 

150 pokesti,hl(r):pokes,li(r)<shift>/<spatie?33 

160 pokest8,h2(r):pokest7,12(r)<shift>/<spatie>91 

170 fory=ito3:sc=int(rnd(1)*5)+1<shift>/<spatierc3 

180 pokes+15,nh(r,sc):pokest+i4,nl(r,sc)<shift>/<spatie>8b 
190 for de=i1tol00:nextde:nexty,x<shift>/<spatie>04 

200 forg=10toOstep-0.05:pokes+24,q:nextq<shift>/<spatieredQ 
210 for de=ito700:next de<shift>/<spatie>fb 

220 forx=Otol:pokestx,0:pokest7+x,O<shift>/<spatie>8f 

230 pokesti4+z,O:nextx:goto90<shift>/<spatie?39 

1000 datai6,195,21,31,25,30,33,133,37,162,42,62,50,60<shift>/<spatie>d7a 






















COMMODORE DOSSIER AKTIEF G 





1010 data2z2,96,28,49,25,30,28,49,31,165,33,135,44,193<shift>/<spatie>69 
1020 datai2,143,15,210,18,209,25,30,28,49,31,165,33<shift>/<spatie>7f 
1030 datal35,14,24,16,195,28,49,31,165,33,135,37, 162<shift>/<spatie>be 
1040 datad2,62,10,143,12,143,21,31,25,30,31,165,42<shift>/<spatieda4d 
1050 data62,50,60<shift>/<(spatie>9a 


TECHNO-ROCK 


10 dimhi(128),11¢128),h2¢6128),120128),h30128),130128),a03),b(3),cC3)<shift>/<spa 
tiedfa 

20 printchr$(147)s"tuning up ... please wait.”<shift>/<spatie>4a 

30 5=54272:forx=l1to24:pokestx,O:nextx<shift>/<spatie>fb 

40 pokest5,68:pokest6,68:pokes+12,68<shift>/<spatie>64 

50 pokest+13,131:pokest19,18:pokes+20, 184<shift>/<spatie>7f£ 

60 forx=itol28<shift>/<spatie>f9 

70 read hil(€z),11¢x)<shift>/<spatie>de9 

80 ifx>64dandx<89theni00<shift>/<spatier» e3 

90 hiCz+l)=hiCx):11¢xti)=11Cx):x=xt+1]<shift>/<spatie>73 

100 nextx<shift>/<spatie>be 

110 forx=iltol28<shift>/<spatie>dab 

120 ifx¢33then h2C¥)=0:12C2)=O:gotoi60<shift>/<spatie>05 

130 read h2(x),12¢x)<shift>/<spatie>2d 

140 ifx>95andx<12itheni60<shift>/<spatie>04 

150 h2Cx+1)=h2Cx):12¢x4+1)=12¢x):x=xt+1<shift> /<spatie>dbf 

160 nextx<shift>/<spatie>7a 

170 forx=iltol28<shift>/<spatie>éf 

180 ifx<65then h3¢z)=0:13¢Cx)=O:goto210<shift>/<spatie>dce 

190 read h3(x),13¢x)<shift>/<spatie>11 

200 h3Cxt+1).=h3Cx):13Cxet1 =13¢x):x=xt+l<shift>/<spatiedel 

210 nextx<shift>/<spatie>08 

220 forx=lto3<shift>/<spatiedil 

230 readatx), b(x),cCx)<shift>/<spatie>78 

240 nextx<shift>/<spatie>?za 

250 pokeS53281,12:printchrs(147);<shift>/<spatie>13 

260 poke214,11:print:poke211,9:printchr$(144)3"the techno-rock fugue"<shift>/<sp 
atiedf! 

270 pokes+24,15<shift>/<spatie>d4f 

280 fory=ito3:forx=aly)to bly)step cly)<shift>/<spatie>9! 

290 pokes+1,hi¢(x):pokest0,11(x)<shift>/<spatie>ic 

-B00 pokes+8,h2(x):pokes+7,12¢x)<shlft>/<spatiedic 

310 pokest15,h3¢x):pokesti4,13¢x)<shift>/<spatie>08 

320 pokest4,33:pokes+i1,33:pokes+18,33<shift>/<spatie>3e 

330 ford=1to20:nextd<shift>/<spatie?57 

340 pokest4,32:pokesti1l,32:pokesti8,32<shift>/<spatie>2b 

350 nextx,y:goto280<shift>/<spatie>d79 

1000 datai6,195,18,209,22,96,21,31,25,30,22,96,21,31<shift>/<spatie>48 
1010 datai8,209,16,195,18,209,22,96,21,31,14,239,14<shift>/<spatie>7e 
1020 data239,14,239,14,239,16,195,18,209,21,31,25, 30<shift>/<spatie>49 
1030 datad1,31,18,209,25,30,25, 30,21,31,21,31,18, 209<shift>/<spatierdac 
1040 dataz1,31,18,209,18,209,18,209,18,209,25,30,28<shift>?/<spatier9s8 
1050 datad9,22,96,25,30,21,31,22,96,18,209,21,31,25<shift>/<spatie>8d 
1060 data30,28,49,22,96,25,30,31,31,22,96,18,209,21<shift?/<spatie>be 
1070 data31,25,30,28,49,22,96,25,30,21,31,22,96,18<shift>/<spatie>88 
1080 dataZ09,21,31,22,96,22,96,22,96,22,96,25,30,14<shift>/<spatie>da8 
1090 data24,16,195,15,210,18,209,16,195,15,210,14,24<shift>/<spatie>f2 
1100 data25,30,14,24,16,195,15,210,22,96,22,96,22,96<shift>/<spatiede2 
1110 data22,96,25,30,28,49,33,135,31,165,37,162,33<shift>/<spatierdeb 
1120 datal35,31,165,28,49,25,30,28,49,33,135,31, 165<shift>/<spatierde3 
1130 data22,96,22,96,22,96,22,96, 25,30, 28, 49,31, 165<shift>/<spatie>f2 
1140 data37,162,31,165,28,49,37,162,37,162,31,165,31<shift>/<spatie>c7 
1150 datal65,28,49,31,165,28,49,28,49,28,49,28,49,37<shift>/<spatie>d4 
1160 datai62,42,62,33,135,37,162,3!1,165,33,135,28,49<shift>/<spatie>3e 
1170 data31,165,37,162,42,62,33,135,37,162,.31,165,33<shift>/<spatie>20 
1180 datal35,28,49,31,165,37,162,42,62,33,135,37,162<shift>/<spatie>d2e 
1190 data31,165,33,135,28,49,31,165,33,135,33,135,33<shift>/<spatie>rll 
1200 data135,33,135,8,97,9,104,11,48,10,143,12,143<shift>/<spatie>03 
1210 datal1,48,10,143,9,104,8,97,9,104,11,48,10,143<shift>/<spatie>27 
1220 datal4,239,14,239,14,239,14,239,8,97,9,104, 1O<shift>/<spatie>78 
1230 datai43,12,143,10,143,9,104,12,143,12,143, 10<shift)>/<spatie>5c 
1240 datai43,10,143,9,104,10,143,9,104,9,104,9, 104<shift>/<spatie>69 
1250 data9,104,1,128,1,120,57,-1,65,128,1<shift?/<spatie>76 


HALLEY 


10 printchr$(147);tab(9);"“halley’s comet funpark”<shift>/<spatie>boO 

20 s=54272:fore=s to s+28:pokee,O0:nexte<shift>/<spatie>82 

30 pokest+5,34:pokest6, 100<shift>/<spatie?11 

40 pokes+12,37:pokest+13,145:pokes+24,15<shift>/<spatie>5da 

50 forx=5tol4S5:pokestl,x:pokes,x<shift?/<spatie>63 

60 ifx<6S5thenpokest8,x:pokes+7,x:pokes+11,33:gotol10<shift>/<spatie>36 
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COMMODORE DOSSIER AKTIEF PROGRAMMA’S 


70 pokest4,65:a=int(rnd(1)*50)+10<shift>/<spatie>c7 

80 if x/a<>int(x/a)orx<>65thenl00<shift>/<spatie>d12 

90 pokest+8,37:pokest7,162:pokest11,129:f=x:gotol10<shift>/<spatie09 
100 ifx-f>rnd(1)*5thenpokestii,O<shift>/<spatie>ac 

110 for de=ito x/1.2:next de<shift>/<spatie>as8 

120 pokest+4,129:nextx:pokest4,128:pokest+11,O0<shift>/<spatiedeb 

130 for de=ito (rnd(1)*1000)+500:next de:pokest+11,32<shift>/<spatie>5d 
140 forx=11000to (rnd(1)*500)+500step-50<shift>/<spatie> £8 

150 fh=int(x/256):fl=x-(256*fh)<shift>/<spatie>b9 

160 pokes+1,fh:pokes,fl:pokes+4,129<shift>/<spatie>73 

170 pokest8,fh:pokes+7,fl:pokest11,129<shift>/<spatie>d9? 

180 for de=lto x/300:next de<shift>/<spatie>éc 

190 pokes+4,65:pokes+11,65:nextx:goto50<shift>/<spatie>eb 


LAGUNA 


10 printchr$(147)stab(8)s"the laguna beach nebula"<shift>/<spatie>ed 
$=54272:fore=s to st28:pokee,O:next<shift>/<spatie>c7 
pokes+5, 255: pokest+6, 255<shift>/<spatie>27 
pokes+12,255:pokes+13,255<shift>/<spatie>13 
pokes+19,34:pokes+20, LOO0<shift>/<spatie>34 
pokes+8,244: pokes+7,243:pokesti1,129¢shift>/<spatie>4c 
forz=3toil5step0.7<shift>/<spatie>3c 
pokest+24,z:for de=l1to50:next de:nextz<shift>/<spatie>8da 
a=(rnd(1)*6500)+2Z000<shift>/<spatie>id 

b=(rnd(1)*500)+350<shift>/<spatie>ib 

forx=atob step-65<shift>/<spatieda3 
fh=int(x/256):fl=x-(256xfh)<shift>/<spatie>57 
pokest1,fh:pokes,fl:pokes+4,129<shift>/<spatie>Si 

for de=ito (rnd(1)*100):next de:nextx<shift>/<spatie>65 
forz=15to3step-0.02: pokest24,z:nextz<shift>/<spatierb4 
pokes+4, 128<shift>/<spatie>ded 

for de=ito (rnd(1)}x700)+300<shift>/<spatie>85 

if rnd(1)>0.02then230<shift>/<spatie>ds8f 
pokes+15,244:pokes+14,103:pokest18,33<shift>/<spatie>f4 
fort={toil50:nextt<shift>/<spatier,e2 
pokest15,217:pokes+14, 189<shift>/<spatie>ded 
pokest+18,32<shift>/<spatie>96 

if rnd(@1)>0.0ithen280<shift>/<spatie>dd 
pokes+15,172:pokesti4,210:pokes+18,33<shift>/<spatie>bd 
fort=i1to50:nextt<shift>/<spatiedel 
pokes+15,183:pokesti4,25<shift>/<spatie>03 
fort=l1toi00:nextt:pokesti8,32<shift>/<spatie>50 

next de:goto70<shift>/<spatie>2e 


HOME ON THE RANGE 


10 tempo=100<shift>/<spatie>ca 

20 form=54272t054296:pokem,O:nextm(shift>/<spatie>cd 

30 poke54296, 15<shift>/<spatier9d 

40 poke54277, 100<shift>/<spatie>91 

50 poke54278, 100<shift>/<spatie>84 

60 readhi,lo,dur<shift>/<spatie>fa 

70 ifhi=-ithenpoke54296,0:end<shift>/<spatie> de 

80 poke54273,hi:poke54272, lo<shift>/<spatie>69 

90 poke54276,17<shift>/<spatie>d5 

100 adur=dur+tempo<shift>/<spatie>d7e 

110 for loop=1 to adur:next loop<shift>/<spatie>72 

120 poke54273,0:poke54272,0<shift)>/<spatie>?43 

130 goto60<shift>/<spatie>0d 

1000 datal8,209,2,18,209,2,25,.30,2,28,49,2,31, 165, 4<shift>/<spatier6f 
1010 data25,30,1,23,180.1,21,31,2,.33,135,2,33,135,2<shift>/<spatie>7d 
1020 data33,135,4,31,165,1,33,135,1,37,162,3,25,30, l<shift>/<spatie>4f 
1030 data25,30,2,25,30,2,23,180,2,25,30,2,28,49,10<shift>/<spatie>bb 
1040 datai&,209,2,18,209,2,25,30,2,28,49,2,31,165, 4(shift>/<spatie>90 
1050 data25,30,1,23,180,1,.21,31,2,33,135,2,22,135,2,33<shift>/<spatie>rbe 
1060 datal35.,4,33.135,1,33.135,.1,31,165,3,28,49,1<shift?/<spatie?b9? 
1070 data25,30,2,23,180,2,25,30,2,28,49,2,25,30,10<shift>/<spatie>33 
1080 data0,0,2,37,162,6,33,135,2,31,165,3,28<shift>/<spatie>86 

1090 datad9,1,31,165,10,18,209,1,18,209,1,25,30, 4¢shift>/<spatie>d4 
1100 data25,30,1,25,30,1,25,30,2,23,180,2,25,30,2<shift>/<spatie>cl 
{110 data28,49,10,18,209,2,18,209,2,25,30,2, 28,49, 2<shift>/<spatierd4 
1120 date31,165,4,25,30,1,23,180,1,21,31,2,32,195. 2¢shiftt>/<spatiede9 
1130 data33,135,2,.33,135,4,33,135,1,33,135,1,31,165,3<shift>/<spatieres 
1140 data28,49,1,25,30,2,23,180,2,25,30,2.28,49,2<shift>/<spatie>fa 
1150 data25,30,10,-1,-1,-l<shift>/<spatiedcc 
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BITWAARDEN 
Het volgende programma laat 
de afzonderlijke bitwaarden 
zien. Dat kan vooral handig 
zijn als gekeken moet worden 
naar de spelpook- en gebrui- 
kersaansluiting. Als het pro- 
gramma start, vraagt het naar 
_ de geheugenplaatsen die u wilt 
bekijken. De 8-bit binaire waar- 
de staat boven aan het scherm 





en hij wordt voortdurend ver- 
verst. Als functietoets | wordt 
ingedrukt, komt u weer bij het 
invoer-programma terecht. 
Probeer de volgende geheugen- 
plaatsen maar eens. 

653 

De toetsenbord-vlag. Druk op 
SHIFT CTRL en de 
Commodore-toets om te zien 


hoe die vlag aan-, en uitgezet 
wordt. 

56321 

Het spelpookje nummer 1. Bij 
het bewegen van het pookje ver- 
anderen de bitwaarden. 

$6320 

Spelpook 2 

56577 

De invoer- en uitvoerlijnen voor 


de gebruikersaansluiting (portB) 
nadat de DDR op 56579 is gezct 
] 

Bit 4 is de cassetteschakelaar en 
bit 5 bestuurt de motor van de 
cassetterecorder 

$3268 

Het rooster’ bit 7 vergelijkt het 
register tiidens het werken. 


- BITWAARDEN 


4 pls="{"<shift>/<spatie>bf 
5 of f$="0"<shift>/<spatiedec 
6 dimas(7)<shift>/<spatie>d3 
7 printchr$(147)"“bekijken van de bit-waarde”<shift>/<spatie>6b 
8 printchrs(17)"f1l voor nieuw adres"<shift>/<spatie203 

10 printchrs$(19)chrs(17)chrs(17)chr$(17)chr$(17)chr8(17)chrs(17)"welk adres 
:"<€shift>/<spatie>33 
20 inputb<shift>/<spatie>d3 
p=peek(b)<shift>/<spatie>d7a 
rem * bit 7 x<shift>/<spatie>dfa 

if (pandi128)>Othenas(7)=pl8:gotoS0<shift>/<spatie>di9 
a$(7)=o0f f$<shift>/<spatie>az2 
rem x bit 6 x<shift>/<spatie>d7 
if(pand64)>Othenas(6)=pl1%:goto70<shift>/<spatie>d0f 
a$(6)=of f$<shift>/<spatie>b7 
rem x bit 5 x<shift>/<spatie>a0 

if (pand32)>Othena$(5)=pl8:goto90<shift>/<spatie>75 
a8(5)=off#<shift>/<spatierd8 
rem * bit 4 x<shift>/<spatie>bd 

if (pand16)>0thena$(4)=pl$:gotol10<shift>/<spatie>57 
a#(4)=of f8<shift>/<spatieded 

rem * bit 3 x<shift>/<spatie>8e 

if (pand8)>Othena$(3)=pl8:gotol30<shift>/<spatie>59 
a$(3)=o0f f$<shift>/<spatie>f6 

rem * bit 2 x<shift>/<spatie>63 

if (pand4) >Othena$(2)=pl8%:gotoi50<shift>/<spatie>be 
as(2)=offS<shift>/<spatie>03 

rem * bit 1 *<shift>/<spaties74 

if (pand2) >Othenas(id=pl8$:gotol70<shift>/<spatiedad 
a$(id=of f£¢<shift>/<spatie>2c 

rem x bit 0 x<shift>/<spatie>49 

if (pand1)>Othena$(O)=pls:gotol90<shift>/<spatie?9d 
as(O)=of f8<shift>/<spatie>39 

Z2$="":2$=a$(7) +ta$ (6)+a$ (5) +a$(4)+a$ (3) +a$(2)+as( id t+as$(O)<shift>/<spatie>2e 
printchrs(19)chré(17)chr¢C17)chr8sCi7)chr$(17)32s<shift>/<spatiedda 
getg$<shift>/<spatie>10 

ifg$=chr$(133) thengotolO<shift>/<spatie>5e 
goto25<shift>/<spatie>68 


190 
200 
210 
220 
230 


ZODIAC 


U hoeft niet in astrologie en de vormen aan het firmament. gramma geeft niet alleen de beeld heen lijkt te trekken. Het 


voorspellende kracht daarvan te 
geloven om toch gefascineerd te 
raken door de tekens van de 

dierenriem en hun verschijnings- 


ZODIAC 


Voor de sterrenwichelaars onder 
u toont het programma Zodiac 
de sterrenbeelden zoals ze aan 
de hemel verschijnen. Het pro- 


naam van het betreffende ster- 
renbeeld, maar ook de naam 
van de helderste ster erin en de 
tijd dat de zon door het sterren- 


10 dimna8$(€12),bs$(12),dt$C12,2),sn¢12),str(12,18)<shift>/<spatie>a7 


poke53280,0<shift>/<spatiera3 


30 poke53281,0<shift>/<spatie>as 





forx=ltol2<shift>?/<spatie?d5 
yeadnas(z),bs$C€z),dt$(x,1),dt$x,2),sn€x)d<shift>/<spatiedec 
fory=ito sn(x)<shift>/<spatie>87 
readstr(x,y)<shift>/<spatie> bs 
nexty,x<shift>/<spatiedff 
printchrs(€147)3<shift>/<spatie>O0c 


COMMODORE DOSSIER AKTIEF 9 


programma bevat tevens een 
kwisje waarmee u uw kennis 
van zaken kunt testen. 








COMMODORE DOSSIER AKTIEF PROGRAMMA’S 


100 printtab(17)schr$(5);"zodiac"<shift>/<spatie>98 

110 print<shift>/<spatie>f7 

120 print”’druk op <kK> om de sterrebeelden van de"<shift>/<spatie>82 
130 print"dierenriem te bekijken, “<shift>/<spatie>2b 

140 print"druk op <r> voor het raadspel,"<shift>/<spatiedif 

150 print"druk op <s> om te stoppen."3<shift>/<spatie>2c 

160 getks<shift>/<spatie>6e 

170 ifkS="s"thenend<shift>/<spatie>88 

180 ifk$>"k"and k8«>"r"thenl60<shift>/<spatie>19 

190 2=(k#="r")<shift>/<spatie>d8 

200 sc=O<shift>/<spatie>Sa 

210 fori=ttoi2<shift>/<spatie>3e 

220 if z thenx=int(rndC1) x12) +1: goto340<shift>/<spatierdcf 

230 x=i<shift>/<spatie>45 

240 printchrs$(147);<shift>/<spatie>ab 

250 print"de zon is in het sterrebeeld"<shift>/<spatie>10 

260 printnas$(x)3" tussen “3dt$Cx,1)3" en "sdt$Cx,2)3"."<shift>/<spatierf9 
270 print<shift>/<spatie>96 : 

280 printna$(x)3"’s helderste ster is”*<shift>/<spatie>c7 

290 printbs$(x)3"."<shift>/<spatierc3 

300 print<shift>/<spatie>db4 

310 print”druk op een toets voor “sna$(x);"."<shift>/<spatierdse 

320 getkS<shift>/<spatie>8f 

330 ifk$=""then320<shift>/<spatie>8b 

340 printchr$(147)3<shift>/<spatie>03 

350 fory=Ito sn(x)<shift>/<spatieded 

360 pokelO24t+str(x,y),42-(C39xCy=1) <shift>/<spatie>d7 

370 poke55296+str(x,y)?,1<shift?/<spatie>17 

380 nexty<shift>/<spatie>das 

390 ford=i1to3500<shift>/<spatie>63 

400 nextd<shift>/<spatie>57 

410 if not z then550<shift>/<spatie>d75 

420 printchrs(147);<shift>/<spatie>£3 

430 input"welk sterrebeeld was dat"sr8<shift>/<spatie>Ob 

450 ifrS=na$(x)then sc=sctl:print"goed!!":goto470<shift>/<spatie>Sa 
460 print“nee.het was “ina$(x)3"."<shift?/<spatie>76 

470 print“wat is zijn"<shift>/<spatie>dol 

480 input"helderste ster “isrs<shift?/<spatie>69 

490 ifrS=bs$(x)then sc=sctil:print"right!":gotoS1lO0<shift>/<spatie>03 
500 print“nee, het is “sbs$(x)3"."<shift>/<spatie>2£ 

510 print<shift>/<spatie>66 

520 print"druk op een toets.”"<shift>/<spatie>9d 

§30 getks<shift>/<spatierde 

540 ifk$=""“then530<shift>/<spatie>d9 

550 nexti<shift>/<spatie>def 

560 if not z then90<shift>/<spatie>ded 

570 printchré(147)3<shift>/<spatie>6e 

580 print“uw score was"3sci"van de 24."<shift>/<spatie>bo 

590 print“dat is"sint((sc/24)*100);"procent goed."<shift>/<spatie>7b 
600 print<shift>/<spatie>rc3 

610 print"“druk op een toets."<shift>/<spatie>r>f7 

620 getk$<shift>/<spatie>ad 

630 if k#=""then620<shift>/<spatle>bl 

640 goto90<shift>/<spatie>02 

1000 data steenbok,algedi,20/1,18/2,13,156,275,432<shift)>/<spatie>74 
1010 data747,825,740,655,531,368,410,415,421,269<shift>/<spatie?55 
1020 data waterman,sadalmelik,17/2,13/3,12,103, 433<shift>/<spatie>76 
1030 data822,178,17,95,93,407,807,922,481,480<shift>/<spatie?9f 

1040 data vissen,alrischa,13/3,19/4,18,800,725,727,650<shift>/<spatie>81i 
1050 data652,655,666,710,830,874, 755,672,565, 370, 253<shift>/<spatie>as 
1060 datal72,90,13<shift>/<spatie>9c 

1070 data ram,hamal,19/4,15/5,7,622,786,866, 365, 346<shift>/<spatie>d9e 
1080 datal38,62<shift>/<spatiedad 

1090 data stier,aldebaran,14/5,21/6,13,342,224, 306<shift>/<spatie>dl 
1100 data384,427,10,163,593,062,748,873,998,719<shift?/<spatierdd 

1110 data tweelingen,castor,21/6,21/7,16,97,99,29,224,512<shift>/<spatieded 
1120 data639,757,300,299,377,294,493,661,746,954,949<shift>/<spatie>dd5S 
1130 data Kreeft,beta cancri,21/7,11/8,5,954,64,425<shift>/<spatie>fc 
1140 data584,900<shift>/<spatie>ddf 

1150 data leeuw,regulus,12/8,16/9,14,749,956,550, 464<shift>/<spatie>fe 
1160 data305,71,153,197,943,887,650,641,410,453<shift>/<spatie>15 

1170 data maagd,spica,21/9,1/11,12,862,732,591,555<shift>/<spatie>19 
1180 datad55,445,478,318,317,427,185,541<shift?/<spatie>3f 

1190 data weegschaal,zuben elgenubi,1/11,22/11,6,382,54<shift>/<spatie>47 
1200 data289,818,849,929<shift>/<spatierle 

1210 data schorpioen,antares, 23/11,30/11,15,425,347,72<shift>/<spatie>57 
1220 datal54,353,473,463,581,660,739,895,850,687,607<shift>/<spatie>77 
1230 dataS30<shift>/<spatie>d7f 

1240 data boogschutter,nunki,18/12,19/1,14,296,53,373<shift>/<spatie>0Ol 
1250 data379, 343,494,544, 308,626,628,743,865, 850, 886<shift>/<spatie>55 
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LISTING VAN LEZERS 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De ies bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze “lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste pf ramma’s uit deze rubriek kunnen in Santana komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


SCREENPRINT 

Een perfect werkend program- van dit programma in vergelij- _—_ rakters afdrukt, inclusief diapo- | We horen in de tockomst nog 
ma van Johan Eerenberg dat op king met andere soortgelijke, is _ sitief. De gebruiksaanwijzing meer van Johan Eerenberg. 
elk willekeurig moment in een dat het supersnel werkt, geen voor het programma verschijnt 

groter programma het scherm enkel ander programma in de in beeld, dus dat kan geen pro- 

kan afdrukken. Het voordeel weg staat en bovendien alle ka- — bleem opleveren. 


SCREENPRINT 

YOM KAKKAKAAKAAAAAKAKKAKKKKKCSHIEt) /Cspatie>se 

rem x screen ~- print x<shift>/<spatie>fd 

ee eee ee x(€shift>/<spatie>d8c 

rem x door johan eerenberg x<shift>/<spatie>94 
rem x x<¢shift>/<spatie>8a 
rem x 13 maart 1985 x<shift>/<spatie>cS 
/ rem * *x<€shift>/<spatie>&88 

LEM KAKKKKKKAKKKKKKKEKKKKKKKKK SHIft> /<spatie>87 

:<shift>/<spatie>33 

for i = 52736 to 53222¢shift>/<spatie>d5 

read x:poke i,x:s=stx:next<shift>/<spatie>99 

data 76, 6,206, 0, 32, 1,169, 0,141, 5,206,120<shift>/<spatie>ba 

data 160, 0,173, 24,208,201, 23,208, 2,160, 7,169<shift>/<spatie>8d 

data 4,170,134,184,132,185,133,186, 32,192,255, 162<shift>/<spatiedaa 

data 4, 32,201,255,169, 0,133,251,133,253,141, 3<shift>/<spatiedac 

data 206,169, 4,133,252,166,253,232,224, 28,208, 3<shift>/<spatie>d2 

data 76,214,206,173, 5,206,201, 1,208, 5,169, id4¢shift>/<spatie>ff 

data 32,210,255,134,253,224, 1,240, 7,224, 27,240<shift>/<spatiedf4d 
100 data 3, 76,117,206,162, 0,169, 45, 32,210,255, 32<shift>/<spatie>dcl 
110 data 210,255, 32,210,255, 32,210,255,169, 43, 32,210<shift>/<spatie>dchb 
120 data 255,232,224, 8,240, 87, 76, 90,206,169, 0,133<shift>/<spatie>red 
130 data 254,164,254,200,192, 41,240, 73,132,254,162, O<shift>/<spatie>27 
140 data 160, 0,177,251,201,128,144, 5, 56,233,128,162<shift>/<spatie>10 
150 data 1,201, 32,144, 8,201, 64,144, 10,201, 96,144<shift>/<spatie>3f 
160 data 3, 24,105, 32, 24,105, 32,236, 3,206,240, 21<shift>/<spatie>39 
170 data 142, 3,206,141, 4,206,169, 18,224, 1,240, 3<shift>/<spatie>36 
180 data 24,105,128, 32,210,255,173, 4,206, 32,210, 255<shift>/<spatie>27 
190 data 230,251,208, 2,230,252, 76,121,206,169, 13, 32<shift>/<spatie>20 
200 data 210,255,169, 0,141, 3,206, 76, 53,206,173, 5S<shift>/<spatie>68 
210 data 206,201, 1,208, 5,169, 15, 32,210,255,169, 4<shift>/<spatie>74 
220 data 32,195,255,169, 3,133,154, 88, 76,197,207,234<shift>/<spatie>d4f 
230 data 234,169, 1,141, 5,206, 76, 11,206, 34,213, O<shift>/<spatie>74 
240 data 32, 32, 32, 32,120,169, 26,141, 20, 3,169,207<shift>/<spatie>58 
250 data 141, 21, 3, 88, 96, 0, 64, 0,137, 1, OO, 34<shift>/<spatie>r6f 
260 data 212,229, 0,206,241, 0,174,141, 2,173,197, O<shift>/<spatiedaf 
270 data 205, 14,207,208, 3, 76, 59,207,141, 14,207,201<shift>/<spatieral 
280 data 4,240, 15,201, 5,240, 14,201, 6,240, 13,201<shift>/<spatie>87 
290 data 3,240, 12, 76, 49,234, 76, 74,207, 76, 92,207<shift>/<spatie>bb 
300 data 76,110,207, 76,128,207,224, 1,240, 7,162,206<shift>/<spatie>d8c 
310 data 160, 0, 76,143,207,162,206,160,241, 76,143,207<shift>/<spatie>9e 
320 data 224, 1,240, 7,162,207,160,228, 76,143,207, 162<shift>/<spatiedd2 
330 data 207,160,228, 76,143,207,224, 1,240, 7,162,207<shift>/<spatie>d8 
340 data 160,228, 76,143,207,162,207,160,228, 76,143,207<shift>/<spatiedfa 
350 data 224, 1,240, 7,162,207,160,228, 76,143,207, l62<shift>/<spatie>rcc 
360 data 207,160,228,142, 23,207,140, 24,207,104,141, 16<shift>/<spatiedff 
370 data 207,104,141, 17,207,104,141, 18,207,104,141, 19<shift>/<spatiedef 
380 data 207,104,141, 20,207,104,141, 21,207,173, 23,207<shift>/<spatie>de7 
390 data 72,173, 24,207, 72,173, 19,207, 72,169, 49,141<shift>/<spatie>24 
400 data 20, 3,169,234,141, 21, 3, 64,234,120,169, 26<shift>/<spatie>3e 
410 data i141, 20, 3,169,207,141, 21, 3,172, 16,207,174<shift>/<spatie>0a 
420 data 17,207,173, 19,207, 72, 40,173, 18,207, 88,108<shift>/<spatie>00 
430 data 20,207,234,234, 76,197,207<shift>/<spatie>10 
440 if s <> 61717 then print"fout in data-regels !!":end<shift>/<spatie>c9 
455 printchrs(147)<shift?/<spatie>rab 
460 print"“screen-print is aktief“<shift>/<spatie>2a 
470 print:print”normale print : fi"<shift?/<spatieda7 
480 print:print"brede print : £2"<shift>/<spatie>90 
490 print:print“uitschakelen srun/stop-restore “<shift>/<spatie>c8 
500 print:print"opnieuw starten:sys 52992"<shift>/<spatie>8d 
510 sys52992:new<shift?/<spatiercc 
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BASIC DEEL2 


BASIC ONDER DE LOEP 


PROGRAMMEREN MET BEHULP 
VAN DATAREGELS 


Het programmeren met behulp 
van zogenaamde ’data- 
statements’ maakt programma’s 


zeer eenvoudig en overzichtelijk. 


Toch hebben veel Basic- 
programmeurs moeite met het 
gebruik van de data- 
commando’s. Een goede reden 
om er in deze aflevering van 
*Basic onder de loep’ eens aan- 
dacht aan te besteden. 


Data-regels worden in Basic ge- 


C 64, +4, C 16, 


bruikt om op een snelle manier 
een aantal variabelen te ’benoe- 
men’. De data-methode voor- 
komt programmaregels als: 


10A = 10 
20 B = 12 
30 = 20 
40 D = 50 
50 E = 100 


Bovenstaande manier van be- 
noemen van variabelen kost veel 


VIC 20 


LISTING BASIC ONDER DE LOEP 


10 rem xxx demonstratie van het 
20 rem xxx lezen van dataregels 
30 rem xxx roelf sluman 1985 


100 
110 
120 
130 
200 
210 
220 
230 mas (x) = 
240 x =x +i 
250 goto 220 
300 
310 
320 
330 da$(x) = 
$40 x =-xti 
350 goto 320 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


dim mas(12) 
dim das(7) 

ra = 
sc = 


x =l 


x = 1 


for x = 
next 
for x = 
next 


data 
data 
data 
data 
data 
data 
data 


read te$:if tes = 
tes 


read te8:if te$ = 
tes 


"ee" 


ee 


print chrs (19) 
1 tao 7 
print,das(x) 
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then 300 


then 400 


geheugenruimte en is bovendien 
vrij onoverzichtelijk. 

Door nu van het READ DATA 
commando gebruik te maken, 
vervangen we de bovenstaande 
programmaregels eenvoudig 
door: 


10 READ A,B,C,D,E 
20 DATA 10,12,20,50,100 


In bovenstaande twee regels ge- 
ven we de computer de volgen- 
de opdracht: 

a. Haal een getal uit de 
data-regel 

b. Geef de variabele na READ 
de waarde van dit getal 

c. Schuif een getal op 

d. Schuif een variabele op 

e. Als er nog variabelen over 


5§3280:rem randkKleur (c 64) 
5328isrem schermkleur (c 64) 
rem xxx hier worden de maanden gelezen 


rem xxx hier worden de dagen gelezen 


rem xxx alle data zijn nu gelezen 
print chrs(147) 
1 to lz 
print mas(x) 


forx= 1 to 3 :print chr$(17):next:end 
januari,februari,maart,april 
mei,juni,juli,augustus 
september, oktober,november 
december, x 
maandag,dinsdag,woensdag 
donderdag.vrijdag.zaterdag 
zondag,x* 


zijn, ga dan naar stap a. 

Hier kan dan meteen de eerste 
zogenaamde ’data-error’ optre- 
den. Toetst u de volgende twee 
regels maar eens in: 


10 READ A,B,C,D,E 
20 DATA 10,12,20,50 


Als u dit programma runt, 
wordt u geconfronteerd met een 
2OUT OF DATA ERROR. 

De computer vertelt u dat hij 
*zonder data’ zit. Een logisch 
gevolg van het feit dat u vijf 
variabelen (A,B,C,D en E) wilt 
benoemen, maar slechts vier va- 
riabelen (10,12,20 en 50) tot uw 
beschikking heeft. 

De computer houdt met behulp 
van een teller bij hoeveel data u 
heeft ’aangeroepen’ en waar u 
bent gebleven. Gevorderde pro- 
grammeurs buiten dit uit door 
deze teller (die zich 0.a. op ge- 
heugenlocatie 63 en 64 bevindt) 
op een door hun gekozen waar- 
de te zetten. 

Als er in deze teller niets veran- 
derd wordt, werkt de computer 
de data af in de volgorde waa- 
rin ze in het programma voor- 
komen. Als er geen data meer 
over zijn, terwijl er door het 
READ-commando nog wel om 
wordt gevraagd, krijgt u de 
2?0UT OF DATA ERROR (de 
computer heeft alle data afge- 
handeld). 

Er bestaat echter een mogelijk- 
heid om de computer weer op- 
nieuw te laten beginnen met de 
eerste data-regel. Dit doet u met 
behulp van het commando 
RESTORE. Dit commando kan 
handig zijn als u de zelfde 
waarden in twee groepen varia- 
belen wilt zetten. U hoeft deze 
waarden dan dus maar in één 
data-regel te zetten. 

In het programma hieronder 
worden de data in de vorm van 
strings gelezen en opgeborgen in 
de string-arrays ma$(x) en 
da$(x). 

U ziet (in regel 220 en 320) dat 
er op een asterisk (’’*’’) getest 
wordt. Deze asterisk gebruikt 
het programma om te kijken of 
alle data zijn ingevoerd. 
Analyseert u het onderstaande 
programma eens. Het is voor- 
zien van REM-regels op de 
plaatsen waar dat noodzakelijk 
is. Wellicht kunt u uw voordeel 
doen met de programmeertrucs 
die gebruikt zijn. 











Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en eee van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED HARDWARE AAN 


@ Wegens overstap naar Comal, speedio- 
ader 1541 van KCS + speedioader voor 
Cassette van DKW. samen f 125,--. 
076-220399. R. Troose. 


@ Commodore-64 + 1/2 jaar garantie + 
recorder + snellaad en toolkit in cartridge 
+ joystick + stofhoes + vele program- 
ma’s. Prijs f 750,--. L. Vonk, Oostblok 
24, 2291 XK Wateringen. 


©@ Kopieer interface. 2 aansluitingen data- 
rec. 1530. Rechtstreeks kopiéren van 
rect naar rec2 tijdens loaden. tdeaal voor 
games. M. Vonk, Oostblok 24, 2291 XK 
Wateringen 


@ Commodore 8032 (nieuw model) + 
8050 disk-drive, samen f 2500,--. B. van 
Even, Noorderweg 40, Den Bosch, 
073-424655. 


@ FAX 100 DOT-MATRIX PRINTER, 6 
mnd. oud. Weinig of niet gebruikt. 
P.NOTK. A. Kielman, Frieselaan 46, 9501 
BN Stadskanaal. 


@ Te koop VIC-20 + 16K + software + 
boeken. Prijs f 500,--. Printer Alphacom 
42 f 250,--. Tel. 01819-17921. 


@ Wegens koop andere comp. SEIKOSHA 
GP100VC MATRIX-PRINTER + acc. 3 
maanden oud, bijna niet gebruikt, als 
nieuw. Prijs f 450,--. Tel. 03447-1697. 


@ Te koop: MPS 802 printer, samen met 
stofhoes en twee reserve linten en vizaw- 
rite 64. T.E.A.B.B. Fortuin, Wingerd 204, 
Waddinxveen. Tel.nr. 01828-13376 (na 
18.00 uur). 


@ Te koop: KCS Tape Speed-saver 64 
voor CBM 64. Laad en saved program- 
ma’s 10x sneller; met div. extra Basic 
commando’s en functietoetsen. Prijs 
£55,--. Tel: 05490-62822. 


@ Commodore 1701 kleurenmonitor: 

f 900,--; Seikosha GP100VE printer: 

f 450,--; originele Vizawrite wordproces- 
sor: f 175,--, 3/4 jaar gebruikt. M. Rein- 
ders 020-249276. 


@ Printer/Plotter 1520 (CBM). Prijs 

f 200,- (3 mnd oud). P. van Diepen, Am- 
bachtstraat 40, 6971 BS Brummen. Tel. 
05756-1702. 


IK BIED HARDWARE EN 
SOFTWARE AAN 


@ Datasette, kolff speed-saver combi, co- 
mal handboek, diverse boeken en tijd- 
schriften, infecom adventures, diverse 
disks en cassettes. N.R, Lanting. Tel.: 
015-136124. 


@ CBM-64 + cass. + joystick + soft- 
ware + boeken 0.a. Refer. Guide, beschr. 
Simon’s Basic. Prijs f 750,-- Tel. 
045-725052. 


IK BIED SOFTWARE AAN 


@ ICS heeft educ. softw. voor uw 
CBM-64 zoals adresbes. maar ook re- 
setsch. en vele andere progr. Stuur een 
briefje (postz. bijsluiten) Javastr. 100, 
6524 MG Nijmegen. 


@ Veel programma’s v. C-64, ook spellet- 


jes. Tel. na 18u 070-941525 of schrijf: 
Knijnenburg, Hoogkamerl. 16, 2284 GH 
Rijswijk (Z.H), s.v.p. postzegel bijsluiten. 


@ Computer-filantroop kan u gratis aan 
topprogrammatuur (c/d) helpen. Geen 
moeite te veel! Bel of schrijf: H. Hiittner, 
Puccinihof 635, 5049 GX Tilburg Tel. 
013-560477. 


@ Speler voor CBM-64. Lijst met spelen 
aanvragen bij Giinther Sterckx, Averio- 
destraat 6, 2040 Antwerpen. 


@ Simon’s Basic:disk + handleiding: 

f 70,--. Superbase64: disk + handleiding: 
f 100,--. Dallas 0. + Ghostbusters + 
Supericide expr. + karate: f 50,--. Bart Wil- 


lems, Duinkerkstr. 19, 8480 Veurne, Belgié. 


IK ZOEK HARDWARE 


@ Ik zoek C64 met datarecorder. Roger 


Evers, SA.Eugemiusstr. 14, Kerkrade. Tel. 


(045)-412569 (na 16u). 


@ Wie heeft er een snelle ROM of 
EPROM voor in de Floppydrive 1541? Tel. 
02230-34905. W. Schaaij, Karveelstraat 
38, 1784 RW Den Helder. 


@ Te koop, huur of leen gevraagd voor 
CBM-64 Letterwielprinter. Heb hem 
plusminus 2 weken nodig. Tel. na 18 uur 
01620-52041. 


IK ZOEK HARDWARE EN SOFTWARE 
@ Ik ben op zoek naar soft- en hardware 
i.v.m. Viditel, Videotext, Bildschermtext, 
Prestel, Teletel enz. Financiéle verg. ver- 
zek. M. van Goidsenhoven, PB 1051010 
Brussel 101 Belgié. 


@ F 25,-- beloning voor degene die mij 
helpt aan aanstuitingschema/handleiding 
voor HRT Modem1000 van Prism. Tel. 

010-334843, A.C. Akveld. 


@ +Vic-20 hard/software. Omschr. en 
prijsopg. naar: M.J. Dinkelberg, Noord- 
zoom 46, 8316 CJ Marknesse. (tel: 
05273-1806) 


IK ZOEK SOFTWARE 

@ Gezocht voor CBM-64: Cassetterecor- 
der liefst onder 50 gulden. Bel: 
02280-13660. Boris Deen, Breedstraat 
90, 1601 KE Enkhuizen. 


@ Wie heeft software voor mijn C-16 (op 


Cassette). Prijsopgave naar A. Bosma, Es- 


doornstr. 26, 4388 PK Oost-Souburg. Tel. 
01184-64370. 


COMMODORE MARKT 


@ Wie kan mij helpen aan een database 
en een dis-assembler voor de CBM-64. 
Eventueel tegen redelijke vergoeding. 1. 
Andriessen, Rolklaver 791, 3069 DH Rot- 
terdam. 


@ Wie kan mij helpen aan leuke en/of 
nuttige (zelf gemaakte) software voor 
Commodore 64? Ron Knevel, Hogenweg 
3, 1098 BT Amsterdam. nb. interesse in 
prog. voor patiéntenbestand. 


@ Ik zoek de save-routine van Novaload 
(dit is een snellader waarbij het beeld 
aanblijft). Tel. na 18u 059-1541, 


@ Ext.Basic (versie 110) voor TI99/4a. 


Rond { 100,--. Tel. (na 4u.): 070-256893. 


@ Wie heeft voor mijn CBM-64 org. betr. 
astrologie en/of homeopathie. Mag ook 
Engels/Duits zijn. Aanb. en prijsopg. aan: 
T. Rombout, Zoutmanstr. 19, 5463 EE 
Veghel, tel. 04130-50830 na 1900u. 


@ Ik zoek handleiding voor assembler 
(€-64) tegen betaling of ruiling software. 
Heirman-Noppe, Jachtstr. 10, 3740 Bil- 
zen, Belgié. 


@ Wie kan mij helpen aan cassetteband- 
jes behorende bij Intermediar P.C.pakket- 


Cursus tegen verg. evt. J. Maas, Kaarder- 


hof 43, 5709 GK Helmond. 


@ Wie heeft voor mij programma’s op 
cass. of papier voor CBM 64? Event. te- 
gen redel. vergoeding. Jan Blok, Bergu- 
mermeer 4, 3068 KN Rotterdam tel. 
010-557131 na 18 uur. 


@ Wie kan mij helpen aan een beschrij- 
ving of handleiding voor G-Pascal event. 
copie. M.J. Schaaf, A.R. Holststraat 28, 
3069 WK Rotterdam. Tel. 010-559065. 


@ Ik zoek ‘n programma om mijn weef- 
patronen uit te werken, Tel. 077-28526. 


© Wie heeft software voor CBM 64, z0- 
wel spel als utility. Gaarne opgave naar 


Ad Klip, Schoolpad 7, 3245 AV Sommels- 


dijk. Tel. 01870-3028 na 20.00 uur. 


@ Wie kan mij helpen aan programma’s 


voor C16, ook basicode-versie is welkom. 


Is er misschien ook een geheugenuitbrei- 
ding mogelijk. C. Nijpels, Atoomstraat 13, 
6227 CM Maastricht, tel. 043-617128. 


@ Gezocht: handleiding voor practi- 
cale/cass. gebruik. G. Plomp, van Dedem- 
laan 39, 3871 TD Hoevelaken. 
03495-36026. 


@ Ik zoek software voor lichtpen, wie 
helpt mij. Schrijf naar L. Reymerink, Rui- 
terstede 92, 3431 XN Nieuwegein. On- 
kosten worden vergoed. Wel voor C64. 


@ Wie kan mij helpen aan programma’s 
voor radiozendamateurisme voor de CBM 
64 op cassette, diskette of lising. Reac- 
ties naar postbus 5012, 6201 WD 
Maastricht. 


@ Wie heeft progr. int. huishoudrekening 
(best of basicode 1) aangepast voor C64 
of kan mij daarbij helpen. L.V. Gerwen, 
05423-82797. 


@ Gezocht: €64 programma -GRAPHICS 
BASIC- + handl. A. Heutke Kantelaar, 
Moddermanspad 4, 9545 TX Bourtange. 
05992-6556. 


@ Gezocht voor de CBM-64 een program- 


ma om een stamboom in te verwerken. 
Op tape s.v.p. Jan de Boer, Ds. Noord- 

mansstraat 27, 9262 NM Suameer. Tel. 
05116-1658. 





@ Ik zoek software voor CBM-64 op 
band, 0.4. programma’s voor onderwijs, 
Spelletjes, gebruiksprogramma’s. |. de 
Kort, J.v. Riebeecklaan 109, 2803 WS 
Gouda. Tel. 01820-32499, 


@ Zoek software of documentatie 
voor/over Stack Lightpen + CBM-64. 
F.J.G. Wijninga, De Haardstede 31, 7335 
LP Apeldoorn. Tel. 055-416499. 


@ Data-base voor. platenbestand. (zeer 
groot) op cass. en disk, sort. op titel + 
uitvoerders. Prijsopg. naar M. Wolles, 
Draaiboomstraat 49, B-2220 Wommelgem 
(Belgie). 


© Zoek voor de CBM-64 op cassette The 
Hobbit en andere grafische adventures. 
Koos Verolme, Azaleastraat 51, 3245 CB 
Sommeisdijk. Tel. 01870-3266. 


@ Wie heeft voor mij: Simons Basic op 
cassette (tegen een gereduceerde prijs). 
C. Stultiens, Vossendijk 99, 6534 TH Nij- 
megen. Tel. 561016. 


@ Gevraagd: Database-programma voor 
CBM-64 tegen kieine vergoeding. Bellen 
na 19.00 uur Tel. 01185-1418. E. Hil- 
lebrand. 


@ Wie heeft voor de CBM-64 een prog. 
dat het mogelijk maakt Cobol te oefenen. 
Evt. tegen betaling J. Reet, Oosteinde 47, 
1636 XS Schermerhorn. 


IK WIL RUILEN 


@ CBM64 programma’s. Stuur lijst naar 
W. Frederiks, Berkhaas 47, 6941 AJ 
Herven. 


@ Commodore C-64 prog. lijst per post te 
verkrijgen. 70 cent als postzegel bijvoe- 
gen. J.P. van Dijk, Emmastraat 18a, 
9671 AP Winschoten. Lijsten bijvoegens.v.p. 


@ CBM 64: ongeveer 500 prg.’s te ruil. 
Bel of schrijf naar: Tony de Bok, Lisdodde- 
laan 13, 4143 VG Leerdam, tel. 
03451-13956. 


@ Wie wil Simonsbasic cass. programma 
ruilen voor Pascal programma cass. Ludo- 
nic Bovee, 01686-2497. 


@ Wie wil (professionele) software ruilen 
voor de Commodore 64. Schrijf: F. de 
dong, Ree 13, 1273 GP Huizen. 


@ Te ruil: spelletjes voor de C-16. Onde- 
randere: Blits, Top 40, Forbidden crypt, 
sprites en nog zo’n 30 andere. Bel 
0411-1661 (Floris), 


@ Wie software wil ruilen voor CBM-64 
stuur uw lijst naar: J. Kuijpers, v. Cit- 
tersstr. 7a, 3022 LE Rotterdam. Ik ben in 
bezit van plusminus 300 progr. voor cass. 
of disk. 


@ Beginner (14 jr.) zoekt software- 
Spelletjes. Heeft plusminus 100 spelen om 
te ruilen. Wie wil aanvullen of ruilen? Stuur 
s.v.p. Softw.lijst: Ludo de la Haye, Hoeker 
43, 1625 CC Hoorn. 


@ CBM-64 software (ook op disk). Ik heb 
zowel games als zakelijke software. Stuur 
lijst naar: Postbus 63, 9530 AB Borger of 
bel: 05998-12834 (na 17.00 uur). 


@ Ik wil spelletjes ruilen voor CBM-64. 
Heb Zaxxon Say It Beach Head. Bel 
02159-19006 en vraag naar Marc. 


@ Wie wil software met mij ruilen voor de 
TRS-80 model 1. Bel naar Richard den Her- 
tog, tel. 01829-2044. 
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COMMODORE MARKT 


IK ZOEK SOFTWARE EN WIL RUILEN 


@ Te koop of te ruil gevraagd voor C-64, 
het Vip-Terminal prg. van Softlaw. Tel. 
020-325845. 


@ Gevraagd: software voor CBM-64 
(cass/diskette). Stuur lijst naar: |. Tille- 
kens, Koekamp 71, 2623 XP Delft. leder- 
een krijgt antwoord. 


@ Gevraagd: software en uitbreidingen 
voor VIC’20 CBM 64 zonder voeding en 
verdere hardware, toetsenbord mag defect 
zijn. Te ruil: 45 spelletjes voor VIC-20 


(standaard). Reacties/aanbiedingen: H. den 
Dekker, Binnenhof 12, 1354 KB Almere, 
tel. 03240-19303. 


OVERIGEN 


@ Wie kan mij helpen aan de gebruiks- 
aanwijzing/informatie betretfende ARCHON 
il. Zoek printer voor CBM 64 tegen rede- 
lijke prijs. J. van Gessel, Cronjestraat 34, 
7001 DM Doetinchem. 


@ Wie heeft er voor mij een handleiding 
van Simon’s Basic. Schrijf: August Viot, 


Rubenssingel 113, 2902 GW Capelle a/d 
Lssel of bel: 010-504881. 


®@ Voor programma zoek ik (Belgische) 
lottoreeksen, uitgekomen tussen begin en 
31 december 1983. Paul Helsen, 
QWMSL.54SMD. BCA. BPS41. 4090BSD. 
in Belgié. 


@ Zoek robot-arm voor 64+ org. tegen 
red. prijs. Bel Carl-dohn na 18.00, tel. 
04160-40094. 


@ CBM 1541 diskdrive max. 1 jr. oud. 
Tevens contact gezocht met 64 gebrui- 


kers (zend amat.) omg. Capelle a/d issel. 


Tel. 010-517415. 


®@ Zoek beschrijving van Easyscript, Raid 
Over Moscou, Sequenzer, Koalapainteren 
Visawrite 64. Heb zelf veel software te 
ruil, M. Kaelen, Vierde romptert 43, 5233 
GA Den Bosch. 


U kunt uw advertentieopdrach- 
ten sturen naar: 

CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11, 

1059 AT Amsterdam. 


Maandelijkse rubriek met de belangrijkste informatie 
uit de Commodore gebruikersclubs 


Stichting Computer Hobbyisten Nederland 
(SCN) HOT NEWS 

Secretariaat: A. Brink, tel. 03450-16051 
(ma-, di- en wo- dag tussen 13.00 en 22.00 
uur) 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Zwolle: P.P.L. van Bijsterveld, tel. 
038-548459. 

Afdeling Midden Nederland: H. Scheffer, 
tel. 03453-1375. 

Afdeling Deventer: tel. 
50759. 

Algemene bijeenkomsten: tweede zater- 
dag van de maand in De Meervaart, Osdor- 
perplein 67 te Amsterdam-Osdorp. 


05700-50758/ 


de Gebruikers van 
Nederland 


Vereniging voor 
Commodore-computers in 
(VCGN) 

Secretariaat: Ine van Teijlingen, De Brink 
928, 2553 HT Den Haag, tel. 070-971851 
(van 20.00-22.00 uur, m.u.v. maandag en 
woensdag) .g.g. 070-687924 of 
070-946156. 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Zeeland: R. van Dijk, tel. 
01180-25746 

Afdeling West-Brabant: P. Nelen, tel. 
01640-51639 


Afdeling Midden-Brabant: W. Wils, tel. 
01620-55634 

Afdeling Oost-Brabant: C. de Winter, tel. 
04120-42054 

Afdeling Zuid-Limburg: J. van Mastrigt, tel. 
043-476935 

Afdeling Zuid Holland-Zuid: D. van Riems- 
dijk, tel. 010-501023 


Algemene bijeenkomsten: laatste zaterdag 
van de maand in Rijswijk (Lodewijk Make- 
blijde College, H.R. Holstlaan 2, 2283 HB). 
Afdelingsbijeenkomsten: 

Afdeling Zeeland: nog niet bekend. 
Atdeling West-Brabant: eerste zaterdag 
van de maand. 

Afdeling Midden-Brabant: derde zaterdag 
van de maand. 

Afdeling Oost-Brabant: derde zaterdag van 
de maand. 

Afdeling Zuid-Limburg: eerste zaterdag 
van de maand. 

Afdeling Zuid Holland-Zuid: eerste zater- 
dag van de maand. 

Afdeling Noord Holland-Zuid: eerste zater- 
dag van de maand. 


PET-Benelux Exchange 

Secretariaat: Copyironics, Postbus 700, 
7400 AS Deventer, tel. 05759-2211. Voor 
inlichtingen over de regionale afdelingen 


kunt u zich wenden tot: 

Afdeling Zeist: tel. 05759-2211 

Afdeling Nijmegen: tel. 05759-2211 
Afdeling Haaksbergen: 053-766444 
Service Reparatie Centrum voor PET- 
leden: tel. 053-766444. 

Algemene bijeenkomsten: 

Afdeling Zeist: eerste zaterdag van de 
maand. 

Afdeling Nijmegen: tweede zaterdag van 
de maand. 

Afdeling Haaksbergen: derde zaterdag van 
de maand. 


HCC-Commodore-COMPET _ gebruikers- 
groep 

Secretariaat: J.J. van Douwen, Couwenho- 
ven 1203, 3703 VB Zeist, tel. 08404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 8/6, 21/9 en 30/11. 
Waddinxveen: zaterdag 27/4, 6/7, 26/10 en 
21/12. 


V.Z.W. Commodore Computer Club Belgié 
Secretariaat: E. de Decker, Bindstraat 19, 
B-2600 Berchem Antwerpen. 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Antwerpen: E. de Decker 
Bindstraat 19, B-2600 Berchen/Antwerpen. 
Afdeling Limburg: Roger Mebis Kamerlo 
15, B-3600 Genk. 

Afdeling West-Vlaanderen: Frankie Meule- 
man, Westhille 37, B-8210 Zedelgem. 
Algemene bijeenkomsten: eerste en derde 
vrijdag van de maand (vanaf 20.00 uur). 
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Smeets Offset (NBI) 
*s-Hertogenbosch 


VORMGEVING 
Daan Ricke 


MARKETING 


Sander Beek 
Frans de Haas 


Peter de Zeeuw 


LEZERS-SERVICE 


Vragen over gepubliceerde programma’s 
kunnen alleen schriftelijk worden 
beantwoord. 


is een uitgave van 

VNU Business Publications BV 
Rijnsburgstraat 11, 1059 AT 
Amsterdam. 


PROJECT-REDACTEUR 
Mat Heffels 


ADVERTENTIE-EXPLOITATIE 


Johan |Jsebrands 
Frank Tanis 
Ton Cobelens 


(c} Copyright 1985 by 

VNU Business Publications BV, 
Amsterdam, Londen. 

VNU Business Press 
Syndication BV, Amsterdam 
Uitgeversmaatschappij Diligentia, 
Brussel. 


SECRETARIAAT EN 
BEELDVERWERVING 
Garla de Haan 


LOSSE NUMMERS 


Aidipress BV, De Meern, 

tel. 08406 - 2044 

Voor Belgié: TUM, Antwerpen, 
tel. 03 — 287 0120 


Commodore Dossier komt tot stand in 
nauwe samenwerking met de redactie 
van 


PCM AAN DIT NUMMER WERKTEN MEE: 
Niets uit deze ultgave mag 
worden overgenomen of 
vermenigvuldigd zonder de 
uitdrukkelijke schriftelijke 
toestemming van de uitgever. 


Jan van Die 
Jan Jacobs 
Rolf Sluman 
Henk Snoeks 
Luc Volders 


Chiel Kramer (hoofdred.) 
Hans Becker 
Dirk H. Ringenoldus 


UITGEVER 
Pim de Wit 


ADVERTENTIE-SECRETARIAAT 
Rob van den Berg 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 



















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als U ze Op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachekoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatije, dat blijkt = 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand orother 
adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES Sonaeenn ee 


CDA JUNI 
BO N: a [k wil meer informatie over de HR-5. 


Naam: 





























Adres: 





Postcode: Plaats: 
Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. | 








Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 


Brother Industries Ltd. Nagoya, Japan. 





Weka & Computer, 


VAN BASIC 
TOT MACHINETAAL 
oP COMMODORE 64 
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COMPUTER- 

TECHNIEK 




















Weka & Computer, 






REF 
ZWAARDERE 
WERK 
op COMMODORE 64 








STEEDS UP TO DATE 


Het is als bij de krant: vandaag nog aktueel, morgen 
“oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 
technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvanot u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 


NOOIT VEROUDERT. 














Weka & Computer, 





Weka Uitgeverij BV. 
Postbus 61196 - 1005 HD AMSTERDAM - 020-8671 31 


KEUZE 1: Basic 


Van basic tot machinetaal op Commodore 64 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

®@ Basic @ Hulptalen (Logo, Pascal, Pilot) 


® Geluid @ Grafische mogelijkheden 

® Accessoires @ Machinetaal 

D.m.v. duidelijke programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: door logische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tiidschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby en beroep . 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen en afstandsbediening, enz. 


Bouwschema’s 

Bouwschema’s gedrukt op plasticfolies geven u 
de mogelijkheid computers met een vaste schiff, 
verwerkingsuitbreidingen, interfaces, 

in- en output-apparatuur zelf te bouwen. 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig vilucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo’n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijstjes die ingevuld kunnen worden, 





1602 


Naam: 


KEUZE 2: Microcomputertechniek 
Microcomputer techniek — uw hobby met toekomst 


KEUZE 3: Spellen op de C64 





In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tot machinetaal op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2200, 

prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 









Software-paketten 

Opdat u de gebruiksmogelijkheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 





zullen we steeds de populairste spellen en 
simulaties opnemen. 


Besiel nu reeds dat unieke naslagwerk, dan 
zenden wij het u direkt na verschijnen toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 





zegging abonneer op uw aktualiserings-service. 


JA, Na ontvangst betaal ik f 99,- plus porto 





Adres: 





PC/Plaats: 








C1 Keuze 1 


Van Basic tot 
machinetaal op C64 








Handtekening: 














LO Keuze 2 Keuze 3 
Aktuele Het zwaardere 
microcomputertechniek werk op C64 


Bon opzenden aan: 
Weka Uitgeverij B.V., Antwoordnummer 15412, 1000 PZ AMSTERDAM 






















































































































































































De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toctsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor 


De nieuwe Commodore PCis een zeer krachtige 
I6 bits computer. Hi) werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt, Daardoor beschikt u 
over honderden programma's die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


ees 


PC 


De IBM compatible 
voor een ongelootij) 
lage pnjs. 

f. 3.695,- 


EXCL. B.T.W. 





De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 |6 bits processor @ 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
@ Dubbel diskette station, 2 x 320/360 Kb @ High- 
resolution monochrome monitor, groen®@ ASCII 
toetsenbord @ Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B.T-W. (diskette station 
| x 360 Kb en | x IO Mb harddisk), Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bi de neven- 
staande geautoriseerde 
Commodore Systeemdealers. 
Of vraag documentatie met de 
coupon. 





Commodore 
Daar wordt een mens wijzer van. 








| Ja, stuur mij de complete | 
| CO U PO N documentatie over de nieuwe 





Commodore PC 
Naam bedrijf 


GGHietpe Seep 
Adres | 


Postcode/Plaats 


Functie 
Handtekening 


Xt 
Zend de coupon in een gefrankeerde envelop aan: . | 
| Commodore BY, Postbus 8192, 1005 AD Amsterdam. | 


| 

| 

| Telefoon. 

| | 
| 

: Toepassing 


* Alkmaar Accom BN, Verdronkenoord 28, tel. 


072-|22412. Alphen a/d Rijn Hermes H.C.S. BV., 
Koperweg 35, tel. 0172035079. Amersfoort Acto 
BV, Amsterdamseweg 53, tel. 033-621724. Am- 
sterdam A.K.G. Micro Systemen, Dam 27, tel. 020- 
272266. Bocaraton BM, Schepenbergweg 6, 
tel. 020-970751. Heisterkamp & Partners BM, 
Stadhouderskade 2, tel. O020-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806. 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BM, P. Callandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler Computer 
Partners, Graaf Janstraat |, tel. 02510-29171. Bode- 
graven MMS B.V,, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan BV., Hoofdstraat 156, tel. 
02285-11628. Breda Indelec B.V., Wilhelrninastraat 
44, tel. 076-142333. Doetinchem Egberts Software 
BV, Houtsrnastraat 150, tel. 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat 119, tel. 
03438-21051, Eindhoven L+T International B.V., 
Winkelcentrum Woensel 84, tel. 040-41 1425. 
Reyers, Willemstraat 3, tel. 040-522888. Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BY, Leitswei 9, tel. 051 33- 
4400. ’s-GravenhageA.5S.O.,Frederikstr. 76, tel.070- 
650348, Datacom, Oranjestr. 7, tel. 070 - 655812. 
Info Computercentrum, Noordeinde 101, tel. 070- 
646830. Logic Data, Rijswijkseweg 31, tel. 070- 
887328. Groningen Incap BM, Peizerweg 68, tel. 
050-120603. Harderwijk Microsign B.V., Verkeers- 
weg 53, tel. 03410-20004. Ridero Computerhouse, 
Hierdenseweg 16-18, tel. 03410-12984. Hard. 
Giessendam C.A.B. Holland BV, Peulenstraat 55, 
tel. 01846-6638. Heeswijk Dinther Heisterkamp & 
Partners, Brouwerstraat 15, tel. 04139-2818. Hel- 
mond Automatiserings Advies Centrum, Hortsedijk 
37, tel. 04920-47775. Hendrik Ido Ambacht Troost 
Systemen Centrum, Veersedijk 63, tel. 01858- 
17022. Hengelo Heisterkamp & Partners, Willem- 
straat 67, tel. 074-437992. ’s-Hertogenbosch Malm- 
berg Fysica, Beverspijken 5, tel. 073-215565. 
Hilversum Computerworld, Hilvertsweg 99, tel. 
035- 12633. Hoevelaken System Design Nederland 
BM, Oosterdorpstraat 166, tel. 03495-37100. 
Hoofddorp W & L Automatisering, Concoursbaan 
|b, tel. 02503-31890. Hoorn Compuregio, Nieuwe 
Steen 6, tel. 02290-32624. Kerkrade Comser 
Systems B.V., Old Hickoryplein 4, tel. 045-462665. 
Laren Inter Access Systems BV., Naarderstraat 66, 
tel. 02153-13000. Maarssenbroek Perce Computers 
BM, Planetenbaan 2, tel. 03465-66066. DeMeern 
Aton Services B.,, Strikviertel 33, tel. 03406-3944. 
Middenbeemster Cryoson Hi-Tech, Rijperweg 40, 
tel. 02998-1670. Oegstgeest K.P.D., Rhijngeester- 
straatweg 58, tel. 071-171041. Raalte Combo B\,, 
Deventerstraat 43, tel. 05720-54772. Ridderkerk 
Computer Centrum Randstad, St. Jorisstraat 3, 
tel. 01804-27878. Roermond Info 80, Minderbroe- 
dersingel 30a, tel. 04750-17520. Rotterdam A.C.C., 
Groothandelsgebouw A, 5e et., tel. 010-!28640. 
Computerworld, Keerweer 99, tel. 010-137823. 
Confi Personal Computing, Vasteland 28, tel. 010- 
146941. Deltacom Informatiesyst. B.V., Koperstraat 
30, tel. 010-552555. Faab Software, Schiedamsedijk 
67a, tel. 010-332077. Heisterkamp & Partners, 
Statenweg 39, tel. 010-667933. Kraan Bouwcompu- 
ting, Weena | 28, tel. 010-136950. MMS Compro- 
shop BV, Westblaak 15, tel. 010-132813. Rijswijk 
Biasc Computer Systems B.V., Bruyn Kopsstraat | 2- 
14, tel. 070-900100. Sneek Stercom BY, Mr. 





| C.P.M. Rommestraat 6, tel. 05150-23885. Soest 


Advisie BV, Vredehofstraat 13, tel. 02155-11434. 
Utrecht Heisterkamp & Partners, Oude Noord 
| 11, tel. 030-322633. Techmation/Crest B.V., Savan- 


| nahweg 35, tel. 030-420) 22. Valkenswaard Cosmos 


Computer Service BV. Valkenierstraat 2, tel. 
04902-17940. Veendam Infocient, Eems 18, tel. 
05987-16018. Yzendoorn MBM Microsystemen, 
Keizerstraat 9, tel. 03444-3232. Zaandam Micro- 
plus, Zomerdijk 31, tel. 075-35131 1. Zeist Compute 
Zeist BV. 2e Hogeweg 123, tel. 03404-25252. 
Zwolle B.S.G. Nederland BV, Diezerplein 26, 
tel. 038-548855. 





